home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 07 - 1991 / 07.11 Nov 91 / TLink THINK Pascal code / MLinkDemo.p < prev    next >
Encoding:
Text File  |  1990-11-26  |  1.2 KB  |  39 lines  |  [TEXT/PJMM]
  1. {    This file has been processed by The THINK Pascal Source Converter, v1.03.    }
  2.  
  3. {[a-,body+,h-,o=100,r+,rec+,t=4,u+,#+,j=20/57/1$,n+]}
  4. { MLinkDemo.p }
  5. { Copyright © 1988 - 1990 by Apple Computer, Inc. All rights reserved. }
  6.  
  7. {$I-}
  8. PROGRAM LinkDemo;
  9.  
  10.   {$MC68020-}                                            { The main program must be universal code }
  11.   {$MC68881-}
  12.  
  13.     USES    SysEqu,Traps,ULoMem,UMacAppUtilities,UPatch,UObject,UViewCoords,UMemory,UFailure,UMenuSetup,UList,UAssociation,UMacApp,UTEView,
  14. UDialog,
  15. ULinkItem,
  16. ULinkDemo;                          
  17.  
  18.     VAR
  19.         gTestApplication:    TTestApplication;            { The application object }
  20.  
  21.     BEGIN
  22.     InitToolBox;                                        { Essential toolbox and utilities
  23.                                                           initialization}
  24.     IF ValidateConfiguration(gConfiguration) THEN        { Make sure we can run }
  25.         BEGIN
  26.         { Continue with remainder of initialization }
  27.         InitUMacApp(8);                                { Initialize MacApp; 8 calls to MoreMasters}
  28.         InitUTEView;                                    { Initialize TEView unit }
  29.         InitUDialog;                                    { Initialize other units }
  30.  
  31.         New(gTestApplication);                            { Allocate a new application object }
  32.         FailNil(gTestApplication);
  33.         gTestApplication.ITestApplication('????');        { Initialize that new object }
  34.         gTestApplication.Run;                            { Run the application. }
  35.         END
  36.     ELSE
  37.         StdAlert(phUnsupportedConfiguration);
  38.     END.
  39.